home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue55 / Persist / EBDEFieldsEditor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-02-02  |  1.7 KB  |  76 lines
  1. unit EBDEFieldsEditor;
  2.  
  3. {
  4. Author     : Guy Smith-Ferrier
  5. Date       : February 2000
  6. Description:
  7. This unit contains TETableEditor, TEQueryEditor and TEStoredProcEditor which
  8. are the Enhanced Fields Editors for TTable, TQuery and TStoredProc. They
  9. inherit from classes in BDEReg2 (which contains further information).
  10.  
  11. }
  12.  
  13. interface
  14.  
  15. uses
  16.   DSDesign, DsgnIntf, BDEReg2, DBReg, DB, DBTables, StdCtrls;
  17.  
  18. type
  19.   TEBDEDesigner = class(TBDEDesigner)
  20.   public
  21.     function GetControlClass(Field: TField): string; override;
  22.   end;
  23.  
  24.   TETableEditor = class(TTableEditor)
  25.   protected
  26.     function GetDSDesignerClass: TDSDesignerClass; override;
  27.   end;
  28.  
  29.   TEQueryEditor = class(TQueryEditor)
  30.   protected
  31.     function GetDSDesignerClass: TDSDesignerClass; override;
  32.   end;
  33.  
  34.   TEStoredProcEditor = class(TStoredProcEditor)
  35.   protected
  36.     function GetDSDesignerClass: TDSDesignerClass; override;
  37.   end;
  38.  
  39.   procedure Register;
  40.  
  41. implementation
  42.  
  43. uses
  44.   EFECommon;
  45.  
  46. function TEBDEDesigner.GetControlClass(Field: TField): string;
  47. begin
  48.   Result:=EFEGetControlClass(Field);
  49.   if Result='' then
  50.     Result := inherited GetControlClass(Field)
  51. end;
  52.  
  53. function TETableEditor.GetDSDesignerClass: TDSDesignerClass;
  54. begin
  55.   Result := TEBDEDesigner
  56. end;
  57.  
  58. function TEQueryEditor.GetDSDesignerClass: TDSDesignerClass;
  59. begin
  60.   Result := TEBDEDesigner
  61. end;
  62.  
  63. function TEStoredProcEditor.GetDSDesignerClass: TDSDesignerClass;
  64. begin
  65.   Result := TEBDEDesigner
  66. end;
  67.  
  68. procedure Register;
  69. begin
  70.   RegisterComponentEditor(TTable, TETableEditor);
  71.   RegisterComponentEditor(TQuery, TEQueryEditor);
  72.   RegisterComponentEditor(TStoredProc, TStoredProcEditor);
  73. end;
  74.  
  75. end.
  76.